home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 090 / v7n13.arc / ARCNODE.BAS next >
Encoding:
BASIC Source File  |  1988-06-06  |  318 b   |  13 lines
  1. 10  CLS:KEY OFF
  2. 20  DEF SEG= &HD000 
  3. 30  OUT &H2E8, 0 :REM FORCES A RESET
  4. 40  FOR I=1 to 1000
  5. 50  J = I
  6. 60  NEXT I 
  7. 70  J = PEEK(0) :REM CHECK RAM BUFFER
  8. 80  IF J<>&HD1 THEN 40 :REM LOOK AGAIN
  9. 90  K=PEEK(1) :REM READING NODE ID
  10. 100 PRINT "THE ARCnet NODE ADDRESS OF"
  11. 110 PRINT "THIS STATION IS ",K
  12. 120 END
  13.